home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 3: CDPD 3
/
Almathera Ten on Ten - Disc 3: CDPD3.iso
/
scope
/
151-175
/
scopedisk168
/
asmmacros
/
am_02
/
waitforchar.i
< prev
next >
Wrap
Text File
|
1995-03-19
|
627b
|
24 lines
NOLIST
WaitForChar MACRO ; 15 Sept 88
*------------------------------; Start of WaitForChar macro.
; Put file handle in D1.
NOLIST
IFEQ ReEntrant-1
LIST
MOVE.L \1(A5),D1
NOLIST
ENDC
IFNE ReEntrant-1
LIST
MOVE.L \1,D1
NOLIST
ENDC
LIST
; Put timeout in D2.
MOVE.L #\2*10000,D2
CallLib WaitForChar,dos ; Call WaitForChar.
TST.L D0 ; Make the Z-flag indicate char availability.
*------------------------------; End of WaitForChar macro.
ENDM
LIST